unit Principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, ExtCtrls, StdCtrls, Buttons;

type
  TfrmPrincipal = class(TForm)
    Menu: TMainMenu;
    Cadastro1: TMenuItem;
    Cliente1: TMenuItem;
    Fornecedor1: TMenuItem;
    N1: TMenuItem;
    Funcionario1: TMenuItem;
    Cargo: TMenuItem;
    Cidade1: TMenuItem;
    DadosEmpresa1: TMenuItem;
    Produto1: TMenuItem;
    Produto2: TMenuItem;
    FormadePagamentos1: TMenuItem;
    ContasAPagar1: TMenuItem;
    Relatorio1: TMenuItem;
    Gerenciais1: TMenuItem;
    ContasPagar1: TMenuItem;
    ContasReceber1: TMenuItem;
    Cadastrais1: TMenuItem;
    Estoque1: TMenuItem;
    Funcionarios1: TMenuItem;
    Cliente2: TMenuItem;
    Venda1: TMenuItem;
    Utilitarios1: TMenuItem;
    Calculadora1: TMenuItem;
    Anotaes1: TMenuItem;
    N2: TMenuItem;
    CopiadeSegurana1: TMenuItem;
    RestauraodeDados1: TMenuItem;
    Ajuda1: TMenuItem;
    Sair1: TMenuItem;
    Movimentao1: TMenuItem;
    Venda2: TMenuItem;
    IniciarVenda1: TMenuItem;
    Relatrio1: TMenuItem;
    Contas1: TMenuItem;
    APagar1: TMenuItem;
    Cadastro2: TMenuItem;
    Baixa1: TMenuItem;
    AReceber1: TMenuItem;
    Recebimento1: TMenuItem;
    CadastroPrimario: TMenuItem;
    EntradadeMercadoria: TMenuItem;
    Cadastro3: TMenuItem;
    AlterarSenha1: TMenuItem;
    IniciarVenda2: TMenuItem;
    EntradaMercadoria1: TMenuItem;
    PagamentodeContas1: TMenuItem;
    RecebimentodeContas1: TMenuItem;
    Cadastro4: TMenuItem;
    Baixa2: TMenuItem;
    XPManifest1: TXPManifest;
    Panel1: TPanel;
    btCliente: TSpeedButton;
    btVenda: TSpeedButton;
    btProduto: TSpeedButton;
    btSair: TSpeedButton;
    procedure Sair1Click(Sender: TObject);
    procedure BtClienteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btSairClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

uses untCadPadrao;

{$R *.dfm}

procedure TfrmPrincipal.Sair1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmPrincipal.BtClienteClick(Sender: TObject);
begin
   frmCadPadrao.ShowModal;
end;

procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
   btSair.Left := frmPrincipal.Width - 113;
end;

procedure TfrmPrincipal.btSairClick(Sender: TObject);
begin
  Application.Terminate;
end;

end.
